上海邦宁

专业营销型网站建设，网站维护服务提供商！

有时候如果网站的部分页面不经常修改的可以用HTML的形式，这样访问的速度也加快了，如果不想直接做成静态页面，那么我们可以通过ASP的技术来实现ASP页面生成HTML的页面。

以前就曾经看到这样的文章，不过没太在意，真正想用的时候很难找到一个合适的，于是在网上搜索了半天终于找到比较合适的代码再加上自己的修改，如下：

<%

Function GetPage(url)

'获得文件内容

dim Retrieval

Set Retrieval = CreateObject("Microsoft.XMLHTTP")

With Retrieval

.Open "Get", url, False ', "", ""

.Send

GetPage = BytesToBstr(.ResponseBody)

End With

Set Retrieval = Nothing

End Function

Function BytesToBstr(body)

dim objstream

set objstream = Server.CreateObject("adodb.stream")

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write body

objstream.Position = 0

objstream.Type = 2

objstream.Charset = "GB2312"

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = nothing

End Function

on error resume next

Url=http://www.cnfront.com要读取的页面地址

response.write "开始更新首页..."

wstr = GetPage(Url)

'response.write(wstr)

Set fs=Server.CreateObject("Scripting.FileSystemObject")

'if not MyFile.FolderExists(server.MapPath("/html/")) then

'MyFile.CreateFolder(server.MapPath("/html/"))'

'end if

'要存放的页面地址

dizhi=server.MapPath("index.htm")

If (fs.FileExists(dizhi)) Then

fs.DeleteFile(dizhi)

End If

Set CrFi=fs.CreateTextFile(dizhi)

Crfi.Writeline(wstr)

set CrFi=nothing

set fs=nothing

response.write "...<font color=red>更新完成！</font>"

%>

代码算是最简单的，直接保存成一个asp文件即可，只要把URL（要转化的asp地址）和dizhi（要保存的html地址）设置好就可以了，一般这两个文件在同一个目录，才能保证图片或者css、js起作用。